home *** CD-ROM | disk | FTP | other *** search
/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / mac / Fonts.el < prev    next >
Encoding:
Text File  |  1994-02-27  |  550 b   |  21 lines  |  [TEXT/EMAC]
  1. ;;;
  2. ;;; This file is part of a Macintosh port of GNU Emacs.
  3. ;;;
  4. ;;; GNU Emacs is distributed in the hope that it will be useful,
  5. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  6. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  7. ;;; GNU General Public License for more details.
  8. ;;;
  9.  
  10. (defconst geneva 3)
  11. (defconst monaco 4)
  12. (defconst times 20)
  13. (defconst courier 22)
  14.  
  15. ; pascal void GetFNum(ConstStr255Param name,short *familyID)
  16. ;    = 0xA900; 
  17. (deftrap GetFNum ("a900")
  18.   ((name address)
  19.    (familyID address))
  20.   nil)
  21.